home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.07 Jul 88 / Basic source / Save Clip < prev   
Encoding:
Text File  |  1988-05-15  |  507 b   |  20 lines  |  [TEXT/TRUE]
  1. ! Save Clip
  2. ! This program will save the contents of the clipboard to a file
  3. LIBRARY "Mactools*"
  4. LIBRARY "PictLib*"
  5. DECLARE DEF MacPutFile$
  6. LET doneflag=0
  7. DO until doneflag=1
  8.    CALL Read_clipboard("PICT",s$)
  9.    LET filename$=MacPutFile$(50,50,"Enter Filename to save as…","","")
  10.    IF filename$<>"" THEN
  11.       CALL Write_pictfile(filename$,s$)
  12.       PRINT "Do another?";
  13.       GET KEY Answer
  14.       IF Answer<>ord("Y") OR Answer<>ord("y") THEN LET doneflag=1
  15.    ELSE
  16.       LET doneflag=1
  17.    END IF
  18. LOOP
  19. END
  20.